home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DAYWEEK.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  521b  |  24 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION DayWeek$ (Dt$) STATIC
  5.  
  6. CALL DateToMDY(Dt$, M%, D%, Y%)
  7.  
  8. M! = M%
  9. D! = D%
  10. Y! = Y%
  11.  
  12. Juln! = Y! * 365 + INT((Y! - 1) / 4) + (M! - 1) * 28 + VAL(MID$("000303060811131619212426", (M! - 1) * 2 + 1, 2)) - ((M! > 2) AND ((Y! AND NOT -4) = 0)) + D!
  13.     
  14.  
  15. Day$ = MID$("Friday   Saturday Sunday   Monday   Tuesday  WednesdayThursday ", (Juln! - INT(Juln! / 7) * 7) * 9 + 1, 9)
  16.  
  17. Day$ = RTRIM$(Day$)
  18. Day$ = LTRIM$(Day$)
  19.  
  20. DayWeek$ = Day$
  21.  
  22. END FUNCTION
  23.  
  24.